﻿Public Class frmStationName
    Private Sub btnOk_Click(sender As Object, e As EventArgs) Handles btnOk.Click
        ' Ferme la fenêtre lors de la validation
        Me.Close()
    End Sub

    Private Sub tbNomStation_TextChanged(sender As Object, e As EventArgs) Handles tbNomStation.TextChanged
        ' Si aucun texte n'est entré, on ne permet pas la validation
        If tbNomStation.TextLength > 0 Then
            btnOk.Enabled = True
        Else
            btnOk.Enabled = False
        End If
    End Sub

    Private Sub tbNomStation_KeyPress(sender As Object, e As KeyPressEventArgs) Handles tbNomStation.KeyPress
        ' On intercepte l'évènement de pression de la touche entrée
        If e.KeyChar = ChrW(Keys.Enter) And btnOk.Enabled Then
            ' On indique que l'évènement est traité
            e.Handled = True
            ' Et on valide
            Me.Close()
        End If
    End Sub

    Private Sub frmStationName_Load(sender As Object, e As EventArgs) Handles MyBase.Load
        tbNomStation.Text = ""
    End Sub

    Private Sub frmStationName_FormClosing(sender As Object, e As FormClosingEventArgs) Handles MyBase.FormClosing
        ' Empêche la fermeture de la fenêtre si aucun texte n'a été entrée
        e.Cancel = Not btnOk.Enabled
    End Sub
End Class